Public Class Pruebas

   Private Sub AcBusqueda1_ACCodigo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      ACControles.ACDialogos.ACMostrarMensajeSatisfactorio("Titulo", "Busqueda por Codigo")
   End Sub

   Private Sub AcBusqueda1_ACDescripcion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      ACControles.ACDialogos.ACMostrarMensajeSatisfactorio("Titulo", "Busqueda por Descripcion")
   End Sub

   Private Sub AcBusqueda1_ACNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      ACControles.ACDialogos.ACMostrarMensajeSatisfactorio("Titulo", "Click Boton Nuevo")
   End Sub

   Private Sub AcToolBarMantenimiento1_ACBtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcToolBarMantenimiento1.ACBtnCancelar_Click, AcToolBarMantenimiento1.ACBtnSalir_Click, AcToolBarMantenimiento1.ACBtnNuevo_Click, AcToolBarMantenimiento1.ACBtnModificar_Click, AcToolBarMantenimiento1.ACBtnGrabar_Click, AcToolBarMantenimiento1.ACBtnEliminar_Click
      ACControles.ACDialogos.ACMostrarMensajeSatisfactorio("Titulo", "Click Boton Nuevo")
   End Sub

   Private Sub DateTimePicker1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DateTimePicker1.KeyPress

   End Sub

   Private Sub DateTimePicker1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyDown

   End Sub

   Private Sub AcFecha1_ACFecFin_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles AcFecha1.ACFecFin_KeyDown
      If e.KeyCode = Keys.Enter Then
         MsgBox("Hola Mundo")
      End If
   End Sub
End Class